home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_91-02_1991_-_de_Side_B.d64 / font ho_br_get (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  506b  |  28 lines
  1. 60000 poke211,x:poke214,y:sys58640:iflen(a$)=0thenreturn
  2. 60005 printa$
  3. 60010 poke211,x:poke214,y+1:sys58640
  4. 60015 print""a$
  5. 60020 return
  6. 60100 poke211,x:poke214,y:sys58640:iflen(a$)=0thenreturn
  7. 60105 for qu=1 to len(a$)
  8. 60110 b$=mid$(a$,qu,1)
  9. 60115 printb$""b$"[146]";
  10. 60120 next
  11. 60130 return
  12. 60200 poke211,x:poke214,y:sys58640:iflen(a$)=0thenreturn
  13. 60205 print"[146]";
  14. 60210 forqu=1tolen(a$)
  15. 60215 b$=mid$(a$,qu,1)
  16. 60220 printb$;chr$(128+asc(b$));
  17. 60225 next
  18. 60230 poke211,x:poke214,y+1:sys58640:print"";
  19. 60235 forqu=1tolen(a$)
  20. 60240 b$=mid$(a$,qu,1)
  21. 60245 printb$;chr$(128+asc(b$));
  22. 60250 next:print"[146]";:return
  23. 60300 poke211,x:poke214,y:sys58640:iflen(a$)=0thenreturn
  24. 60305 poke646,f1:printa$
  25. 60310 poke211,x:poke214,y+1:sys58640
  26. 60312 poke646,f2:printa$
  27. 60315 return
  28.